home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / punk.lzs / PUNKD.MF < prev    next >
Text File  |  1991-04-21  |  2KB  |  55 lines
  1. % Punk digits
  2.  
  3. beginpunkchar("0",9,.5,1);
  4. z1=pp(.5w,h); z2=pp(u,.55h); z3=pp(.5w,0); z4=pp(w-u,.55h);
  5. pd z1; draw z1{curl 2}..z2..z3..z4..z1; % bowl
  6. endchar;
  7.  
  8. beginpunkchar("1",9,.3,1);
  9. z1=pp(2u,.7h); z2=pp(.6w,h); z3=pp(.6w,0);
  10. pd z1; pd z3; draw z1--z2--z3; % serif and stem
  11. endchar;
  12.  
  13. beginpunkchar("2",9,1,1);
  14. z1=pp(2u,.7h); z2=pp(.5w,h); z3=pp(w-u,.6h); z4=pp(u,0); z5=pp(w-2u,0);
  15. pd z1; pd z5; draw z1..z2..z3..z4--z5; % stroke
  16. endchar;
  17.  
  18. beginpunkchar("3",9,.5,.5);
  19. z1=pp(2u,.7h); z2=pp(.5w,h); z3=pp(w-u,.5[y2,y4]);
  20. z4=pp(.5w-u,.55h); z5=pp(w-u,.5[y4,y6]); z6=pp(.5w,0); z7=pp(1.5u,.2h);
  21. pd z1; pd z7; draw z1..z2..z3..z4&z4..z5..z6..z7;  % arcs
  22. endchar;
  23.  
  24. beginpunkchar("4",9,1,1);
  25. z1=pp(w-u,.3h); z2=pp(u,.3h); z3=pp(2/3w,h); z4=pp(2/3w,0);
  26. pd z1; pd z4; draw z1--z2--z3--z4; % stem and diagonals
  27. endchar;
  28.  
  29. beginpunkchar("5",9,.5,.5);
  30. z1=pp(w-2u,h); z2=pp(2u,h); z3=pp(u,.7h); z4=pp(w-u,.5[y3,y5]);
  31. z5=pp(.5w,0); z6=pp(u,.2h);
  32. pd z1; pd z6; draw z1--z2--z3..z4..z5..z6; % stroke
  33. endchar;
  34.  
  35. beginpunkchar("6",9,1,1);
  36. z1=pp(2/3w,h); z2=pp(u,.3h); z3=pp(.5w,0); z4=pp(w-u,.3h); z5=pp(.6w,.6h);
  37. z6=pp z2; pd z1; pd z6; draw z1..z2..z3..z4..z5--z6; % stroke
  38. endchar;
  39.  
  40. beginpunkchar("7",9,.5,1);
  41. z1=pp(2u,h); z2=pp(w-.5u,h); z3=pp(.4w,0);
  42. pd z1; pd z3; draw z1--z2&z2..z3{down}; % stroke
  43. endchar;
  44.  
  45. beginpunkchar("8",9,.5,.5);
  46. z1=pp(.5w,h); z2=pp(u,.5[y1,y3]); z3=pp(.5w,.6h); z4=pp(w-u,.5[y3,y5]);
  47. z5=pp(.5w,0); z6=pp(u,.5[y5,y3]); z7=pp(w-u,.5[y1,y3]);
  48. pd z1; draw z1{curl 8}..z2..z3..z4..z5..z6..z3..z7..z1; % stroke
  49. endchar;
  50.  
  51. beginpunkchar("9",9,1,1);
  52. z1=pp(1/3w,0); z2=pp(w-u,.7h); z3=pp(.5w,h); z4=pp(u,.7h); z5=pp(.5w,.4h);
  53. pd z1; pd z5; draw z1..z2..z3..z4..z5; % stroke
  54. endchar;
  55.